home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / stronged / !StrongED_Modes_BASIC < prev    next >
Encoding:
Text File  |  1996-08-28  |  3.8 KB  |  151 lines
  1.  
  2. HelpPath    BASIC,Assembly,SWI,
  3.  
  4. ID_FirstChar    A-Za-z_
  5. ID_Middle    A-Za-z_0-9
  6. ID_LastChar    $%
  7.  
  8. #----------------------------------------------------------------------
  9.  
  10. # Immediate commands :
  11. # APPEND AUTO DELETE EDIT HELP LIST LISTO LOAD LVAR NEW OLD
  12. # RENUMBER RUN SAVE TWIN TWINO
  13.  
  14. SyntaxOptions
  15.     SingleQuote    No
  16.     DoubleQuote    Yes
  17.     QuoteQuote    Yes
  18.     SplitString    No
  19.     HexPrefix    &
  20.     BinPrefix    %
  21. End
  22.  
  23. #SyntaxComment 1
  24. #    Type        OneLine
  25. #    StartWith    ;
  26. #    EndWith        :
  27. #End
  28.  
  29. SyntaxComment 2
  30.     Type        OneLine
  31.     StartWith    REM
  32. End
  33.  
  34. SyntaxWords Group1 EndAlways case
  35.     CALL CASE CHAIN CLEAR DATA DEF DIM ELSE END ENDCASE ENDIF
  36.     ENDPROC ENDWHILE ERROR FOR GOSUB GOTO IF INSTALL LET LIBRARY
  37.     LOCAL NEXT ON OTHERWISE OVERLAY QUIT REPEAT RESTORE RETURN
  38.     RUN STOP SYS THEN TRACE UNTIL USR WHEN WHILE
  39. End
  40.  
  41. SyntaxWords Group2 EndAlways case
  42.     ABS ACS ADVAL AND ASC ASN ATN BEAT BEATS BGET BPUT CHR$ CIRCLE
  43.     CLG CLOSE CLS COLOR COLOUR COS COUNT DEG DIV DRAW ELLIPSE
  44.     ENVELOPE EOF EOR ERL ERR EVAL EXP EXT FALSE FILL GCOL GET HIMEM
  45.     INKEY INPUT INSTR INT LEFT$ LEN LINE LN LOG LOMEM MID$ MOD MODE
  46.     MOUSE MOVE NOT OF OFF OPENIN OPENOUT OPENUP OR ORIGIN OSCLI PAGE
  47.     PI PLOT POINT POS PRINT PTR RAD READ RECTANGLE REPORT REPORT$
  48.     RIGHT$ RND SGN SIN SOUND SPC SQR STEP STEREO STR$ STRING$ SUM
  49.     SUMLEN SWAP TAB TAN TEMPO TIME TINT TO TOP TRUE VAL VDU VOICE
  50.     VOICES WAIT WIDTH
  51. End
  52.  
  53. SyntaxWords Group3 EndOfID case
  54.     PROC FN
  55. End
  56.  
  57. #----------------------------------------------------------------------
  58.  
  59. Search
  60.     _Indent2    {" "} [ (("REM") | (";"~":") {" "} ]
  61.     Bchar        Alpha|"_"|"`"
  62.     _MarkWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  63.     _MoveWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  64.     Func        "DEF" {" "} "PROC"|"FN" @0 Bchar {Bchar|Digit}
  65.     Func2        "DEF" {" "} CW ~Bchar
  66.     Label        [";:"] "." CW ~(Bchar|D)
  67. End
  68.  
  69. KeyList
  70. #    ^R        Indent ("REM ")
  71.     ^D,^F        InsertStr ("FN_ForceDebug")
  72.     ^D,^R        InsertStr ("FN_RestoreDebug")
  73.     ^D,^D        InsertStr ("FN_Debug(pass%,\"\")")
  74.     ^Delete        InsertStr(":") DeleteRight
  75.     ^Return        NewLine(indent,_Indent2)
  76. End
  77.  
  78. Functions
  79.  
  80.     Key    ⇧F2
  81.     Menu    List DEF PROC/FN  ⇧F2
  82.     Icon    LoF
  83.     Select    ListOfFound (Func,All,Align,Line,Case)
  84.     Help    Click to generate list of all procedures and functions.
  85.  
  86.     Adjust    ListOfFound (";:.",All,After,Line,Case)
  87.  
  88.     Key     ⇧PgUp
  89.     Icon    up
  90.     Select    ListOfFound (Func,Text,Align,Line,Case,GotoPrev)
  91.     Help    Click Select to go to previous function, and Adjust to go to previous assembly label.
  92.  
  93.     Key     ^PgUp
  94.     Adjust    ListOfFound (";:.",Text,After,Line,Case,GotoPrev)
  95.  
  96.     Key     ⇧PgDown
  97.     Icon    down
  98.     Select    ListOfFound (Func,Text,Align,Line,Case,Gotonext)
  99.     Help    Click Select to go to next function, and Adjust to go to next assembly label.
  100.  
  101.     Key     ^PgDown
  102.     Adjust    ListOfFound (";:.",Text,After,Line,Case,Gotonext)
  103.  
  104.     Key    F10
  105.     Menu    Run                F10
  106.     Icon    run
  107.     Select    SetTmp() RunBasic
  108.     Help    Click to tokenise program and run it.|MUse shift to save first, and ctrl to run in a taskwindow.
  109.  
  110.     Key    ⇧F10
  111.     ⇧Select    SetTmp() RunBasic(Save)
  112.  
  113.     Key    ^F10
  114.     Adjust    SetTmp() RunBasic(,,Taskwindow)
  115.  
  116.     Key    ^⇧F10
  117.     ⇧Adjust    SetTmp() RunBasic(Save,,Taskwindow)
  118.  
  119.     Key    ^G
  120.     Menu    Goto label/DEF PROC/FN
  121.     Icon    goto
  122.     Select    Push ListOfFound (Func2,All,Whole,Line,Case,GotoFound)
  123.     Help    Select: Goto Procedure/Function.|MAdjust: Goto Label.
  124.  
  125.     Key    ^⇧G
  126.     Adjust    Push ListOfFound (Label,All,Whole,Line,Case,GotoFound)
  127.  
  128.     Key    ^G 2
  129.     ⇧Select    Pop
  130.  
  131.     Key    ^⇧G 2
  132.     ⇧Adjust    Pop
  133.  
  134. End
  135.  
  136. Shortcuts
  137.     P.    PRINT \@
  138.     DF    DEF FN\@\n\n=0
  139.     DP    DEF PROC\@\n\nENDPROC
  140.     CA.    CASE \@ OF\n\i  WHEN \@\n\iENDCASE
  141.     WH.    WHILE \@\n\i  \@\n\iENDWHILE
  142.     RE.    REPEAT\n\i  \@\n\iUNTIL ()
  143.     ERR.    ON ERROR: ON ERROR OFF: PRINT REPORT$;" at line ";ERL:END\n\i\@
  144.     FO.    FOR \@\n\i  \@\n\iNEXT
  145.     STM{    STMFD    R13!,{0-12,14}\n\n\i\@\n\n\iLDMFD    R13!,{0-12,PC}^
  146.     LDM{    LDMFD    R13!,{0-12,PC}^
  147.     $;-    ;-------------------------------------------------------------------------------
  148.     $;=    ;===============================================================================
  149. End
  150.  
  151.